home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / amipopup.lha / AMIPopUp / INSTALL < prev    next >
Text File  |  1998-06-24  |  12KB  |  400 lines
  1. ; $VER: AMIPopUp Install V1.0 (24.06.98) - written by Sascha "SieGeL" Pfalz
  2. ; Installer and Installer project icon
  3. ; (c) Copyright 1985-98 Amiga International Inc.  All Rights Reserved.
  4. ;
  5. ; For best view set TAB to 2
  6. ;
  7. ; This script follows the rules for the Installer, all text vars have a 
  8. ; t_ preceeding the var name, all other vars have the # in front of the
  9. ; names and all sub procedures (if any) will start with P_ .
  10. ;
  11. ; V1.0 (24.06.98) - Initial Version, Script is able to update or full install
  12.                     
  13.  
  14. ;===================
  15. ;= Check-Variables =
  16. ;===================
  17.  
  18. (set #MUI "MUI")
  19. (set #MUIMASTER_VMIN 11)
  20. (set #MUIMASTER_PATH "MUI:Libs/muimaster.library")
  21. (set #AMIPOPUP "AMIPopUp")
  22. (set #AMIGUIDE "AMIPopUp.guide")
  23. (set #AMIGUIDE_GER "AMIPopUp_ger.guide")
  24. (set #AMIHIST "AMIPopUp.history")
  25. (set #PREPHIST "PrepMail.history")
  26. (set #AMICATDE "catalogs/deutsch/AMIPopUp.catalog")
  27. (set #AMICATSW "catalogs/svenska/AMIPopUp.catalog")
  28. (set #PREPMAIL "PrepMail")
  29.  
  30.  
  31. ;================
  32. ;= GERMAN TEXTS =
  33. ;================
  34.  
  35. (IF (= @language "deutsch")
  36.     (
  37.     (set default_lang 2)
  38.  
  39.     (set t_StartMsg            (cat        "\nInstallations-Skript für AMIPopUp & PrepMail\n\n"
  40.                                                             "Dieses Skript installiert AMIPopUp und alle relevanten\n"
  41.                                                             "Dateien auf Ihrem System.\n\n"
  42.                                                             "AMIPopUp ist © 1998 by Sascha 'SieGeL' Pfalz\n"
  43.                                                             "MUI ist © 1993-98 by Stefan Stuntz"))
  44.     (set t_bad-kick            (cat        "\nSie benötigen mindestens AmigaOS V3.0 oder\n\n"
  45.                                                             "höher, um AMIPopUp zu benutzen !\n\n"
  46.                                                             "-> Bitte updaten Sie Ihr System <-"))
  47.     (set t_wrong_mui        (cat        "Falsche MuiMaster.library Version!\n\n"
  48.                                                             "Installiert ist V%ld.%ld, benötigt wird aber mind. V11 !\n\n"
  49.                                                             "Bitte updaten Sie Ihr MUI System auf V3.6+\n(Library-Version 11+) !"))
  50.     (set t_no_mui                (cat        "Konnte MUI nicht finden !\n"
  51.                                                             "User-Editor benötigt unbedingt MUI V3.6+ um zu arbeiten !\n\n"
  52.                                                             "Bitte erst das MUI System installieren (es lohnt sich) und\n"
  53.                                                             "dann diese Installation nochmal beginnen !"))
  54.     (set t_AskForDest                        "Bitte Ziel-Pfad für %s angeben:")
  55.     (set t_copyfile                            "Kopiere jetzt %s...")
  56.     (set t_selectlocale    (cat        "Bitte Sprache(n) zum Installieren/Updaten auswählen:\n"
  57.                                                             "(Alle Kataloge werden nach PROGDIR:Catalogs/ kopiert)"))
  58.     (set t_askfordocs                        "Dokumentation installieren/updaten ?")
  59.     (set t_selectdocs                        "Bitte auswählen, welche Teile der Dokumentation installiert/geupdated werden sollen:")
  60.     (set t_askforddest                    "Bitte Zielverzeichnis für die Dokumentation auswählen:")
  61.     (set t_copycatalog                    "Kopiere Katalog Datei...")
  62.     (set t_askdocshelp    (cat        "Wenn Sie wünschen kann der Installer die mitgelieferten\n"
  63.                                                             "Dokumentationen installieren. Sie haben dann die Möglichkeit,"
  64.                                                             "ein Verzeichnis für die Doks anzugeben."))
  65.     (set t_lastnotice        (cat        "\nInstallation erfolgreich.\n\n"
  66.                                                             "Bitte lesen Sie UNBEDINGT die Hinweise in der Dokumentation "
  67.                                                             "nach, wie PrepMail in Ihre smb.conf Datei eingetragen werden muss!!!\n\n"
  68.                                                             "Sollte die TextInput.mcc Klasse noch nicht installiert sein,\n"
  69.                                                             "dann entpacken Sie das beigefügte Archiv (textinput_13.36.lzx) und installieren es."))
  70.     ))
  71.  
  72. ;=================
  73. ;= ENGLISH TEXTS =
  74. ;=================
  75.  
  76. (IF (= @language "english")
  77.     (
  78.     (set default_lang 4)
  79.  
  80.     (set t_StartMsg     (cat            "\nInstallation Script of AMIPopUp & PrepMail\n\n"
  81.                                                             "This script will install AMIPopUp and all required\n"
  82.                                                             "files to your System.\n\n"
  83.                                                             "AMIPopUp is © 1998 by Sascha 'SieGeL' Pfalz\n"
  84.                                                             "MUI is © 1993-98 by Stefan Stuntz"))
  85.     (set t_bad-kick            (cat        "\n\nYou must be using AmigaOS V3.0 or higher\n\n"
  86.                                                             "to use AMIPopUp !\n\n"
  87.                                                             "-> Please update your machine ! <-"))
  88.     (set t_wrong_mui        (cat        "Wrong MuiMaster.library Version !\n\n"
  89.                                                             "Installed is V%ld.%ld, required is at least V11 !\n\n"
  90.                                                             "Please update your MUI System to at least V3.6+\nLibrary-Version 11+) !"))
  91.     (set t_no_mui                (cat        "Unable to find MUI System !\n"
  92.                                                             "AMIPopUp requires MUI V3.6+ to work !\n"
  93.                                                             "Please install first the MUI System and restart this Installation\n"
  94.                                                             "after the MUI system is installed."))
  95.     (set t_AskForDest                        "Specify destination for %s:")
  96.     (set t_copyfile                            "Now copying file %s...")
  97.     (set t_selectlocale    (cat        "Please choose language(s) to install/update:\n"
  98.                                                             "(English is built-in, all other catalogs will be copied to PROGDIR:Catalogs/"))
  99.     (set t_askfordocs                        "Do you wish to install/update the documentation ?")
  100.     (set t_selectdocs                        "Please choose which parts of the documentation should be installed/updated:")
  101.     (set t_askforddest                    "Select Destination directory for the documentation:")
  102.     (set t_copycatalog                    "Copy catalog file...")
  103.     (set t_askdocshelp    (cat        "If you wish Installer will copy the supplied docs in a\n"
  104.                                                             "directory of your choice."))
  105.     (set t_lastnotice        (cat        "\nInstallation successful.\n\n"
  106.                                                             "Please make sure that you read the docs about adding PrepMail "
  107.                                                             "to your smb.conf file !!!\n\n"
  108.                                                             "If you haven't installed the TextInput.mcc class yet, you should "
  109.                                                             "extract the supplied archive (textinput_13.36.lzx) and install it, too."))
  110.  
  111.     ))
  112.  
  113. ;****************************************************************************
  114. ;***                  MAIN INSTALLATION SCRIPT STARTS HERE !              ***
  115. ;****************************************************************************
  116.  
  117. (set #osver (/ (getversion) 65536))                ; Determine OS Version...
  118. (if (< #osver 37) ( (ABORT t_bad-kick)))    ; ...and stop if OS < 37
  119. (complete 0)
  120. (message t_StartMsg)
  121. (complete 1)
  122. (welcome)
  123.  
  124. ;======================================================================
  125. ;= FIRST SYSTEM-CHECKS TO DETERMINE USED AMIGA AND INSTALLED SOFTWARE =
  126. ;======================================================================
  127.  
  128. (set #MUI_ASSIGN (getassign #MUI))                ; Check if MUI exists!
  129.  
  130. (if (<> #MUI_ASSIGN "")
  131.     (
  132.     (set #muiver (/ (getversion #MUIMASTER_PATH) 65536))     ; Get Version
  133.     (set #muirev (* (getversion #MUIMASTER_PATH) 65536))    ; ???
  134.     (set #muirev (/ #muirev 65536))                                                ; Get Revision
  135.     (if (< #muiver #MUIMASTER_VMIN) (ABORT (t_wrong_mui #muiver #muirev)))
  136.     (complete 6)
  137.     )
  138.     (
  139.     (abort t_no_mui)
  140.     ))
  141.  
  142.  
  143. ;======================================================================
  144. ;=       PROMPT FOR THE DESTINATION DIRECTORY & COPY MAIN FILE        =
  145. ;======================================================================
  146.  
  147. (if (<> 0 (exists #AMIPOPUP))
  148.     (
  149.  
  150.     (set #mypath "")
  151.  
  152.     (until (<> #mypath "")
  153.         (
  154.         (set #mypath
  155.             (askdir (prompt (t_AskForDest #AMIPOPUP))
  156.                             (default "MUI:")
  157.                             (help @askdir-help)))
  158.         ))
  159.     (complete 12)
  160.  
  161.     (set @default-dest #mypath)
  162.  
  163.  
  164.     (copylib     (prompt (t_copyfile #AMIPOPUP))
  165.                         (source "AMIPopUp")
  166.                         (dest        @default-dest)
  167.                         (confirm)
  168.                         (help    @copylib-help)
  169.                         (infos))
  170.     )
  171.     (
  172.     (set @default-dest "MUI:")
  173.     )
  174. )
  175. (complete 20)
  176.  
  177. ;======================================================================
  178. ;=              CHECK FOR PREPMAIL AND INSTALL IT, TOO                =
  179. ;======================================================================
  180.  
  181. (if (<> 0 (exists #PREPMAIL))
  182.     (
  183.  
  184.     (set #preppath "")
  185.  
  186.     (until (<> #preppath "")
  187.         (
  188.         (set #preppath
  189.             (askdir (prompt (t_AskForDest #PREPMAIL))
  190.                             (default "AmiTCP:bin")
  191.                             (help @askdir-help)))
  192.         ))
  193.  
  194.     (complete 22)
  195.  
  196.     (copylib     (prompt (t_copyfile #PREPMAIL))
  197.                         (source "PrepMail")
  198.                         (dest        #preppath)
  199.                         (confirm)
  200.                         (help    @copylib-help))
  201. ))        
  202.  
  203. ;======================================================================
  204. ;=                      INSTALL LOCALE CATALOGS                       =
  205. ;======================================================================
  206.  
  207. (set #def 0)    ; Init var
  208.  
  209. (if (<> 0 (exists #AMICATDE))    
  210.     (
  211.     (set #choice1 "pdeutsch")
  212.     (if (= @language "deutsch") (set #def (+ #def 1)))
  213.     )
  214.     (
  215.     (set #choice1 "p")
  216.     ))
  217.  
  218. (if (<> 0 (exists #AMICATSW))    
  219.     (
  220.     (set #choice2 "svenska")
  221.     (if (= @language "svenska") (set #def (+ #def 2)))
  222.     )
  223.     (
  224.     (set #choice2 "")
  225.     ))
  226.  
  227. (set #catalogs
  228.     (askoptions    (prompt t_selectlocale)
  229.                             (help @askoptions-help)
  230.                             (choices    #choice1
  231.                                                 #choice2)
  232.                             (default #def)))
  233.  
  234. (complete 30)
  235.  
  236. (if (IN #catalogs 0) 
  237.     (
  238.     (set #mkpath (tackon @default-dest "catalogs/deutsch"))
  239.     (makedir #mkpath)
  240.     (copylib       (prompt t_copycatalog)
  241.                             (source "catalogs/deutsch/AMIPopUp.catalog")
  242.                             (dest     #mkpath)
  243.                             (help @copyfiles-help))))
  244.  
  245. (complete 40)
  246.  
  247. (if (IN #catalogs 1) 
  248.     (
  249.     (set #mkpath (tackon @default-dest "catalogs/svenska"))
  250.     (makedir #mkpath)
  251.     (copylib       (prompt t_copycatalog)
  252.                             (source "catalogs/svenska/AMIPopUp.catalog")
  253.                             (dest     #mkpath)
  254.                             (help @copyfiles-help))))
  255.  
  256. ;======================================================================
  257. ;=        INSTALL AMIGA-GUIDE DOCUMENTATION & HISTORY FILE            =
  258. ;======================================================================
  259.  
  260. (complete 55)
  261.  
  262. (set #myguide (exists #AMIGUIDE))
  263. (set #myhist (exists #AMIHIST))
  264. (set #mygerguide (exists #AMIGUIDE_GER))
  265. (set #myprephist (exists #PREPHIST))
  266.  
  267. (set #docdef 0)
  268.  
  269. (if (OR (<> 0 #myguide) (<> 0 #myhist) (<> 0 #mygerguide) (<> 0 #myprephist))
  270.     (
  271.     (if (= 1 (AskBool    (prompt t_askfordocs)    (help    t_askdocshelp)))
  272.         (
  273.  
  274.         (if (<> 0 #myguide) 
  275.             (              
  276.             (set #selguide "AmigaGuide Manual - English (19kb)")
  277.             (set #docdef (+ #docdef 1))
  278.             )
  279.             (
  280.             (set #selguide "")
  281.             )
  282.         )
  283.  
  284.         (if (<> 0 #mygerguide) 
  285.             (
  286.             (set #selgerguide "AmigaGuide Manual - Deutsch (N/A!)")
  287.             (set #docdef (+ #docdef 2))
  288.             )
  289.             (
  290.             (set #selgerguide "")
  291.             )
  292.         )
  293.  
  294.  
  295.         (if (<> 0 #myhist)     
  296.             (            
  297.             (set #selhis "AMIPopUp.History            ( 1kb)")
  298.             (set #docdef (+ #docdef 4))
  299.             )
  300.             (
  301.             (set #selhis "")
  302.             )
  303.         )
  304.  
  305.         (if (<> 0 #myprephist)     
  306.             (            
  307.             (set #prephis "PrepMail.History            ( 1kb)")
  308.             (set #docdef (+ #docdef 8))
  309.             )
  310.             (
  311.             (set #prephis "")
  312.             )
  313.         )
  314.  
  315.         (complete 60)
  316.  
  317.  
  318.         (set #docparts
  319.             (askoptions (prompt        t_selectdocs)
  320.                                     (help            @askoptions-help)
  321.                                     (choices #selguide
  322.                                                      #selgerguide
  323.                                                    #selhis
  324.                                                      #prephis)
  325.                                     (default #docdef)))
  326.         (complete 70)
  327.  
  328.         (if (<> 0 #docparts)
  329.             (
  330.             (set #docdest
  331.                 (askdir (prompt     t_askforddest)
  332.                                 (help            @askdir-help)
  333.                                 (default    @default-dest)))
  334.  
  335.             (complete 75)
  336.  
  337.             (if (<> "" #docdest)
  338.                 (
  339.                 (if (IN #docparts 0)
  340.                     (
  341.                     (copyfiles     (prompt "Install AmigaGuide...")
  342.                                             (help        @copyfiles-help)
  343.                                             (source    "AMIPopUp.guide")
  344.                                             (dest        #docdest)
  345.                                             (infos))
  346.  
  347.                     (complete 85)
  348.  
  349.                     ))
  350.  
  351.                 (if (IN #docparts 1)
  352.                     (
  353.                     (copyfiles     (prompt "Install AmigaGuide...")
  354.                                             (help        @copyfiles-help)
  355.                                             (source    "AMIPopUp_ger.guide")
  356.                                             (dest        #docdest)
  357.                                             (infos))
  358.  
  359.                     (complete 90)
  360.  
  361.                     ))
  362.  
  363.                 (if (IN #docparts 2)
  364.                     (
  365.                     (copyfiles     (prompt "Install History...")
  366.                                             (help        @copyfiles-help)
  367.                                             (source    "AMIPopUp.history")
  368.                                             (dest        #docdest)
  369.                                             (infos))
  370.                     ))
  371.  
  372.                 (if (IN #docparts 3)
  373.                     (
  374.                     (copyfiles     (prompt "Install History...")
  375.                                             (help        @copyfiles-help)
  376.                                             (source    "PrepMail.history")
  377.                                             (dest        #docdest)
  378.                                             (infos))
  379.  
  380.                     (complete 95)
  381.  
  382.                     ))
  383.                 ))
  384.             ))
  385.         ))
  386.     ))
  387.  
  388.  
  389. ;======================================================================
  390. ;=    END OF INSTALLATION - NOTICE USER ABOUT SMB.CONF ADDING !!!     =
  391. ;======================================================================
  392.  
  393.  
  394. (complete 99)
  395.  
  396. (message t_lastnotice)
  397.  
  398. (complete 100)
  399. (exit)
  400.